(read-passwd): Ignore input methods.

diff --git a/lisp/subr.el b/lisp/subr.el
index 46939a0b4ada92293ac35613bc5a9b64c61295a6..1f042f24cd3e1c39e8dd96ebd9803dca9f512249 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -803,7 +803,7 @@ Optional DEFAULT is a default password to use instead of empty input."
       (while (progn (message "%s%s"
                             prompt
                             (make-string (length pass) ?.))
-                   (setq c (read-char))
+                   (setq c (read-char nil t))
                    (and (/= c ?\r) (/= c ?\n) (/= c ?\e)))
        (if (= c ?\C-u)
            (setq pass "")